home *** CD-ROM | disk | FTP | other *** search
/ Disc Station 16 / Disc Station Vol 16.bin / DRIVERS / CANOPUS / T64VM_95.LZH / SETUP.MS_ / SETUP.MS
Text File  |  1996-04-15  |  26KB  |  736 lines
  1. '**************************************************************************
  2. '*    -- setup.mst --
  3. '*
  4. '*    Power Window T64V Application Setup script
  5. '*
  6. '*    Copyright (C) 1996 CANOPUS Co.,Ltd. All rights reserved.
  7. '**************************************************************************
  8.  
  9. '$INCLUDE 'setupapi.inc'
  10. '$INCLUDE 'msdetect.inc' 
  11. '$INCLUDE 'msregdb.inc'
  12.  
  13. ''Dialog ID's
  14. CONST    WELCOMEV        =200
  15. CONST    WELCOMEVUS        =201
  16. CONST    ASKQUITV        =400
  17. CONST    ASKQUITVUS        =401
  18. CONST    OPTIONSV        =600
  19. CONST    OPTIONSVUS        =601
  20. CONST    OPTIONSVM        =602
  21. CONST    OPTIONSVMUS        =603
  22. CONST    PWBOARD            =700
  23. CONST    PWBOARDUS        =701
  24. CONST    DESTPATHW95        =1001
  25. CONST    DESTPATHUSW95    =1003
  26. CONST    EXITSUCCESSW95    =1101
  27. CONST    EXITSUCCESSUSW95=1103
  28. CONST    EXITQUIT        =1200
  29. CONST    EXITQUITUS        =1201
  30. CONST    EXITFAILURE        =1300
  31. CONST    EXITFAILUREUS    =1301
  32. CONST    EXITCHECK        =1400
  33. CONST    EXITCHECKUS        =1401
  34. CONST    DESTINSTALL        =1500
  35. CONST    DESTINSTALLUS    =1501
  36. CONST    BADPATHW95        =2001
  37. CONST    BADPATHUSW95    =2003
  38. CONST    POWERERROR        =2100
  39. CONST    POWERERRORUS    =2101
  40. CONST    DISKERROR        =2200
  41. CONST    DISKERRORUS        =2201
  42.  
  43. ''Defalut Setting
  44. CONST    LOGO     =1
  45. CONST    SHOWMAX    =3
  46. CONST    TRUE    =1
  47. CONST    FALSE    =0
  48.  
  49. ''CustInst list
  50. CONST     TOTALKBOX    =5
  51. CONST     CHECKBOX1    =1
  52. CONST     CHECKBOX2    =2
  53. CONST     CHECKBOX3    =3
  54. CONST     CHECKBOX4    =4
  55. CONST     CHECKBOX5    =5
  56.  
  57. '' Users Area
  58. GLOBAL    DEST$                '' Default Dir
  59. GLOBAL    WINDRIVE$            '' Windows Dir
  60. GLOBAL    GROUP$                '' Group Name
  61. GLOBAL    CUIDLL$                '' User DLL File Name
  62. GLOBAL    CHECKSTATES$        '' Check Box Data
  63. GLOBAL    JPMODE AS INTEGER     '' Japanese / English Mode
  64. GLOBAL    WINMODE AS INTEGER     '' Windows Version
  65. GLOBAL    OPBOARD AS INTEGER     '' Option Board
  66. GLOBAL    MPEGFLG AS INTEGER     '' MPEG Board  TRUE:HARD MPEG FALSE:SOFT MPEG
  67. GLOBAL    VIDEOFLG AS INTEGER '' Video Board TRUE:YES       FALSE:NO
  68. GLOBAL    PWFLG AS INTEGER    '' FALSE:Power Window T64V,MPEG Option Board  TRUE:Power Windows T64VMP
  69.  
  70. ''CustInst list symbol names
  71. DECLARE SUB         Install
  72. DECLARE FUNCTION    MakePath (szDir$, szFile$) AS STRING
  73. DECLARE    SUB         IniSetAndBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  74. DECLARE    SUB         IniSetAndStandBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  75. DECLARE FUNCTION    CheckPowerWindow LIB "mscuistf.dll" () AS INTEGER
  76. DECLARE FUNCTION    GetPowerWindowDir LIB "mscuistf.dll" () AS INTEGER
  77. DECLARE FUNCTION    GetWindowsVer LIB "mscuistf.dll" () AS INTEGER
  78. DECLARE FUNCTION    ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  79. DECLARE FUNCTION    GetMetrics LIB "mscuistf.dll" () AS INTEGER
  80.  
  81.  
  82. '
  83. ' #[ INIT ]
  84. '
  85. INIT:
  86.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  87.  
  88.     WINMODE = GetWindowsVer()
  89.     JPMODE = GetMetrics()
  90.  
  91.     SetWindowSize SHOWMAX
  92.     SetBitmap CUIDLL$, LOGO
  93.     SetTitle "Power Window T64V Application Setup"
  94.  
  95.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  96.     IF szInf$ = "" THEN
  97.         szInf$ = GetSymbolValue("STF_CWDDIR") + "setup.inf"
  98.     END IF
  99.     ReadInfFile szInf$
  100.  
  101. '    PWFLG = FALSE        '' PWT64V,MPEG VIDEO Board
  102.     PWFLG = TRUE        '' PWT64VMP
  103.  
  104.     IF WINMODE = FALSE THEN
  105.         IF JPMODE <> 0 THEN
  106.             i% = DoMsgBox("Windows 95 ÉΩùpé╠âAâvâèâPü[âVâçâôé╠é╜é▀üAé▒é╠è┬ï½é╔é═âCâôâXâgü[âïé┼é½é▄é╣é±üB", "Power Window T64V Application Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  107.         ELSE
  108.             i% = DoMsgBox("Please install Windows 95 before installing Power Window T64V Application.", "Power Window T64V Application Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  109.         END IF
  110.         END
  111.     END IF
  112.  
  113.     DEST$ = ""
  114.     WINDRIVE$ = GetWindowsDir()
  115.     i% = GetPowerWindowDir()
  116.     IF i% = TRUE THEN
  117.         DEST$ = GetSymbolValue("PwDirOut")
  118.     END IF
  119.     IF DEST$ = "" THEN
  120.         DEST$ = MID$(WINDRIVE$, 1, 1) + ":\PWAPP"
  121.     END IF
  122.     
  123.     i% = CheckPowerWindow()
  124.     IF i% = FALSE THEN 
  125.         IF JPMODE <> 0 THEN
  126.             dlg% = POWERERROR
  127.         ELSE
  128.             dlg% = POWERERRORUS
  129.         END IF
  130.         sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  131.         END
  132.     END IF
  133.  
  134. WELCOME:
  135.     IF JPMODE <> 0 THEN
  136.         dlg% = WELCOMEV
  137.     ELSE
  138.         dlg% = WELCOMEVUS
  139.     END IF
  140.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  141.     IF sz$ = "CONTINUE" THEN
  142.         UIPop 1
  143.     ELSE
  144.            GOSUB ASKQUITJMP
  145.         GOTO WELCOME
  146.     END IF
  147.  
  148. BOARDCHECKSTART:
  149.     IF PWFLG = TRUE THEN
  150.         MPEGFLG=TRUE        '' Hard MPEG Driver
  151.         VIDEOFLG%=FALSE        '' Video Chip NO
  152.         GOTO CHECKCUTSTART
  153.     END IF        
  154.     RemoveSymbol "CheckTool"
  155.     AddListItem "CheckTool", "OFF"
  156.  
  157. BOARDCHECKLOOP:
  158.     IF JPMODE <> 0 THEN
  159.         dlg% = PWBOARD
  160.     ELSE
  161.         dlg% = PWBOARDUS
  162.     END IF
  163.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheck0DlgProc", 0, "")
  164.     IF sz$ = "CONTINUE" THEN
  165.         IF GetListItem("CheckTool", 1) = "OFF" THEN
  166.             MPEGFLG=FALSE        '' Soft MPEG Driver
  167.             VIDEOFLG%=FALSE        '' Video Chip NO
  168.         ELSE
  169.             MPEGFLG=TRUE        '' Hard MPEG Driver
  170.             VIDEOFLG%=TRUE        '' Video Chip OK
  171.         END IF
  172.         UIPop 1
  173.         GOTO CHECKCUTSTART
  174.     ELSE
  175.         GOSUB ASKQUITJMP
  176.         GOTO BOARDCHECKLOOP
  177.     END IF
  178.  
  179. CHECKCUTSTART:
  180.     CHECKSTATES$ = "CheckItemsIn"
  181.     RemoveSymbol CHECKSTATES$
  182.     RemoveSymbol "OptionsGreyed"
  183.     IF JPMODE <> 0 THEN
  184.         AddListItem CHECKSTATES$, "ON"        '' Release Note
  185.     ELSE
  186.         AddListItem CHECKSTATES$, "OFF"
  187.         AddListItem "OptionsGreyed", "1"
  188.     END IF
  189.  
  190.     AddListItem CHECKSTATES$, "ON"            '' Power Cinema
  191.     IF MPEGFLG% = TRUE THEN
  192.         AddListItem CHECKSTATES$, "ON"        '' MPEG Driver
  193.     ELSE
  194.         AddListItem CHECKSTATES$, "ON"
  195.     END IF
  196.     IF VIDEOFLG% = TRUE THEN
  197.         AddListItem CHECKSTATES$, "ON"        '' Video Viewer
  198.         AddListItem CHECKSTATES$, "ON"        '' TV Tuner
  199.     ELSE
  200.         AddListItem CHECKSTATES$, "OFF"
  201.         AddListItem "OptionsGreyed", "4"
  202.         AddListItem CHECKSTATES$, "OFF"
  203.         AddListItem "OptionsGreyed", "5"
  204.     END IF
  205.  
  206. CHECKCUTLOOP:
  207.     IF PWFLG = FALSE THEN        '' PWT64V,MPEG VIDEO Baord
  208.         IF JPMODE <> 0 THEN
  209.             dlg% = OPTIONSV
  210.         ELSE
  211.             dlg% = OPTIONSVUS
  212.         END IF
  213.     ELSE
  214.         IF JPMODE <> 0 THEN
  215.             dlg% = OPTIONSVM
  216.         ELSE
  217.             dlg% = OPTIONSVMUS
  218.         END IF
  219.     END IF
  220.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheckDlgProc", 0, "")
  221.     IF sz$ = "CONTINUE" THEN
  222.         push% = 0
  223.         CHECKSTATES$ = "CheckItemsOut"
  224.         FOR i% = 1 TO TOTALKBOX STEP 1
  225.             IF GetListItem(CHECKSTATES$, i%) = "ON" THEN
  226.                 push% = 1
  227.             END IF
  228.         NEXT i%
  229.         IF push% = 0 THEN
  230.             IF JPMODE <> 0 THEN
  231.                 dlg% = EXITCHECK
  232.             ELSE
  233.                 dlg% = EXITCHECKUS
  234.             END IF
  235.             sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  236.             UIPop 1
  237.             GOTO CHECKCUTLOOP
  238.         END IF
  239.         UIPop 1
  240.         GOTO GETPATH
  241.     ELSEIF sz$ = "BACK" THEN
  242.         UIPop 1
  243.         IF PWFLG = FALSE THEN
  244.             GOTO BOARDCHECKLOOP
  245.         ELSE
  246.             GOTO WELCOME
  247.         END IF
  248.     ELSE
  249.         GOSUB ASKQUITJMP
  250.         GOTO CHECKCUTLOOP
  251.     END IF
  252.  
  253. GETPATH:
  254.     SetSymbolValue "EditTextIn", DEST$
  255.     SetSymbolValue "EditFocus", "END"
  256. GETPATHL1:
  257.     IF JPMODE <> 0 THEN
  258.         dlg% = DESTPATHW95
  259.     ELSE
  260.         dlg% = DESTPATHUSW95
  261.     END IF
  262.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FEditDlgProc", 0, "")
  263.     DEST$ = GetSymbolValue("EditTextOut")
  264.     IF sz$ = "CONTINUE" THEN
  265.         IF IsDirWritable(DEST$) = 0 THEN
  266.             GOSUB INPUTPATH
  267.             GOTO GETPATHL1
  268.         END IF
  269.         UIPop 1
  270.     ELSEIF sz$ = "REACTIVATE" THEN
  271.         GOTO GETPATHL1
  272.     ELSEIF sz$ = "BACK" THEN
  273.         UIPop 1
  274.         GOTO CHECKCUTLOOP
  275.     ELSE
  276.         GOSUB ASKQUITJMP
  277.         GOTO GETPATHL1
  278.     END IF
  279.  
  280. INST:
  281.     IF JPMODE <> 0 THEN
  282.         dlg% = DESTINSTALL
  283.     ELSE
  284.         dlg% = DESTINSTALLUS
  285.     END IF
  286.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  287.     IF sz$ = "CONTINUE" THEN
  288.         UIPop 1
  289.     ELSEIF sz$ = "BACK" THEN
  290.         UIPop 1
  291.         GOTO GETPATH
  292.     ELSE
  293.         GOSUB ASKQUITJMP
  294.         GOTO INST
  295.     END IF
  296.  
  297.     Install
  298.  
  299. QUIT:
  300.     ON ERROR GOTO ERRQUIT
  301.  
  302.     IF ERR = 0 THEN
  303.         IF JPMODE <> 0 THEN
  304.             dlg% = EXITSUCCESSW95
  305.         ELSE
  306.             dlg% = EXITSUCCESSUSW95
  307.         END IF
  308.     ELSEIF ERR = STFQUIT THEN
  309.         IF JPMODE <> 0 THEN
  310.             dlg% = EXITQUIT
  311.         ELSE
  312.             dlg% = EXITQUITUS
  313.         END IF
  314.     ELSE
  315.         IF JPMODE <> 0 THEN
  316.             dlg% = EXITFAILURE
  317.         ELSE
  318.             dlg% = EXITFAILUREUS
  319.         END IF
  320.     END IF
  321. QUITL1:
  322.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  323.     IF sz$ = "CONTINUE" THEN
  324.         UIPop 1
  325.         END
  326.     END IF
  327.  
  328. RESET:
  329.     new% = ExitExecRestart()
  330.     Exe$ = WINDRIVE$ + "\_msrstrt.exe"
  331.     Empty$ = ""
  332. RESTART1:
  333.     IF new% = 0 THEN
  334.         IF JPMODE <> 0 THEN
  335.             i% = DoMsgBox("Windows é≡ì─ïNô«é┼é½é▄é╣é±üBæ╝é╠âAâvâèâPü[âVâçâôüiMS-DOS╠▀█▌╠▀─ôÖüjé≡ÅIù╣é╡é─é¡é╛é│éóüB", "âZâbâgâAâbâv âGâëü[", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  336.         ELSE
  337.             i% = DoMsgBox("The Setup program cannot restart Windows. Please terminate all other applications and MS-DOS Prom